home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 155
/
155.d81
/
ft.flower power
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
2KB
|
66 lines
5 dv=peek(186):ifdv<8thendv=8
6 poke53272,31:poke53269,0
10 poke53280,0:poke53281,14:print"[147] [198] [204] [207] [215] [197] [210] [208] [207] [215] [197] [210]"
15 fori=1544to2023:pokei,160:poke54272+i,13:next
20 dima(64):v=53248:s=54296
30 forl=12288to12799:pokel,0:next
40 fort=0to29:readp,b:pokev+p,b:next
50 fort=1to7:poke2040+t,192+t:next
60 forq=0to63:readn:a(q)=n:next
70 fort=0to7:forq=63to0step-1:l=l-1:pokel,a(q):ford=0to40:next:next:next
75 goto100
79 rem....flower x,y data....
80 data0,220,1,140,2,95,3,155
81 data4,170,5,145,6,120,7,140
82 data8,195,9,150,10,245,11,155
83 data12,70,13,145,14,145,15,150
84 rem....other flower data....
85 data21,254,28,255,32,0,33,14
86 data37,5,38,0,39,7,40,6
87 data41,2,42,7,43,4,44,1
88 data45,2,46,1
89 rem....flower shape data....
90 data2,128,160,2,162,160,2,162
91 data160,0,162,128,10,46,40,42
92 data191,170,42,191,170,10,46,40
93 data0,166,128,2,166,160,18,166
94 data160,18,132,161,20,4,1,21
95 data4,5,5,68,21,5,68,84
96 data1,68,84,0,84,80,0,5
97 data64,0,4,0,0,4,0,0
100 forj=832to959:readk:pokej,k:next
110 forj=0to7:readk,l:pokev+k,l:next
120 forj=0to250:pokev,j
130 pokes,5:poke2040,b:pokes,0
140 ifb=14thenb=13:goto130
145 b=14:next
150 i=peek(v+1):form=0to25:pokev+1,i:i=i+1:next
201 data0,240,0,3,252,0,3,255
202 data0,3,255,1,0,255,4,0
203 data255,16,0,63,16,0,63,4
204 data1,143,28,73,153,93,25,153
205 data85,9,153,85,1,153,20,0
206 data145,0,0,4,64,0,1,16
207 data0,4,64,0,17,0,0,0
208 data0,0,0,0,0,0,0,0
209 data0,0,0,0,0,0,0,0
210 data0,0,0,1,0,0,4,0
211 data0,16,0,0,16,0,0,4
212 data3,255,28,75,252,93,25,249
213 data85,9,153,85,1,153,20,0
214 data145,0,0,4,64,0,1,16
215 data0,4,64,0,17,0,0,0
216 data0,0,0,0,0,0,0,0
217 rem....other bee sprite data....
218 data32,0,33,14,37,0,38,15
219 data39,7,21,255,28,255,1,113
220 print" [208]ress [211][208][193][195][197]/[198][201][210][197] to go to menu
230 j[178][194](56320):[161]a$:[139]a$[179][177]" "[175]j[177]111[167]230
235 [151]53269,0
240 [153]"loadcont"
245 [153]"new"
250 [153]"load"[199](34)"ft.menu"[199](34)","dv
255 [153]"run"
260 [153]"":[151]631,13:[151]632,13:[151]633,13:[151]198,3:[128]
10000 d[178][194](186):n$[178]"ft.flower power":[159]15,d,15,"s0:"[170]n$:[160]15:[148]n$,d:[128]